﻿Public Class frmBienesInmuebles
    Dim utilidades As New Utilidades
    Dim _titulo As String
    Dim _form As frmClientes
    Dim _tipoVentana As String
    Dim _sePresionoGuardar As Boolean = False
    Dim _componentesHabilitados As Boolean
    Public _idCliente As String
    Public _secuenciaMueble As String

    Public NRO_CATASTRO As String
    Public DESCRIPCION1 As String
    Public VALOR_MONETARIO1 As String
    Public CALLE2 As String
    Public NUMERO1 As String
    Public PISO1 As String
    Public DEPTO1 As String
    Public ID_LOCALIDAD1 As String
    Public LOCALIDAD1 As String
    Public SEC2 As String


    Public Sub New(ByVal tipoVentana As Integer, ByRef form As frmClientes)
        Me.InitializeComponent()

        If tipoVentana = Constantes.Ventana_Tipo_Apertura_Nuevo Then
            Me.Text = "Nuevo Bien Inmueble"
            _componentesHabilitados = True
        End If
        If tipoVentana = Constantes.Ventana_Tipo_Apertura_Edicion Then
            Me.Text = "Modificar Bien Inmueble"
            _componentesHabilitados = True
        End If
        If tipoVentana = Constantes.Ventana_Tipo_Apertura_Detalle Then
            Me.Text = "Detalle de Bien Inmueble"
            _componentesHabilitados = False
        End If

        _form = form
        _tipoVentana = tipoVentana
    End Sub

    Private Sub frmBienesInmuebles_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If _sePresionoGuardar = False Then
            If MessageBox.Show("Si cancela no se guardarán los cambios ¿Está seguro?", "Atención", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.OK Then
                e.Cancel = False
            Else
                e.Cancel = True
            End If
        End If
    End Sub
    Private Sub frmBienesInmuebles_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim myAccesoDatos As New AccesoDatos
        myAccesoDatos.traer_valores_combo_Area(Me.cmbLocalidadInmueble, Constantes.Tabla_AREAS_GEOGRAFICAS, Constantes.Tipo_Area_LOCALIDAD)

        If _tipoVentana = Constantes.Ventana_Tipo_Apertura_Nuevo Then
            ''Me.cargarDatosNuevoMueble()
        End If
        If _tipoVentana = Constantes.Ventana_Tipo_Apertura_Edicion Then
            Me.cargarDatosInmueble()
        End If
        If _tipoVentana = Constantes.Ventana_Tipo_Apertura_Detalle Then
            Me.cargarDatosInmueble()
            habilitacionComponentesDetalle()
        End If

        Me.mostrarBotones()
    End Sub

    Private Sub mostrarBotones()
        Me.cmdAceptar.Visible = (Not _componentesHabilitados)
        Me.cmdGuardar.Visible = _componentesHabilitados
        Me.cmdCancelar.Visible = _componentesHabilitados
    End Sub

    Private Sub habilitacionComponentesDetalle()
        Me.lblAsterisco.Enabled = False
        Me.lblDatosRequeridos.Enabled = False
        Me.Label1.Enabled = False
        Me.Label5.Enabled = False
        Me.Label6.Enabled = False
        Me.Label40.Enabled = False
        Me.Label7.Enabled = False

        Me.txtNumeroCatastro.Enabled = False
        Me.txtValorAproximado.Enabled = False
        Me.txtDescripcion.Enabled = False
        Me.txtCalle.Enabled = False
        Me.txtNumeroCalle.Enabled = False
        Me.txtPiso.Enabled = False
        Me.txtDepartamento.Enabled = False
        Me.cmbLocalidadInmueble.Enabled = False
    End Sub

    Private Sub cargarDatosinmueble()

        Me.txtNumeroCatastro.Text = NRO_CATASTRO
        Me.txtValorAproximado.Text = VALOR_MONETARIO1
        Me.txtDescripcion.Text = DESCRIPCION1
        Me.txtCalle.Text = CALLE2
        Me.txtNumeroCalle.Text = NUMERO1
        Me.txtPiso.Text = PISO1
        Me.txtDepartamento.Text = DEPTO1
        Me.cmbLocalidadInmueble.SelectedValue = Convert.ToString(ID_LOCALIDAD1)

    End Sub

    Private Sub cmdAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAceptar.Click
        _sePresionoGuardar = True
        Me.Close()
    End Sub

    Private Sub txtNumeroCatastro_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNumeroCatastro.KeyPress
        utilidades.validarKeyPressNumerico(e)
    End Sub

    Private Sub txtValorAproximado_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtValorAproximado.KeyPress
        utilidades.validarKeyPressNumerico(e)
    End Sub


    Private Sub txtNumeroCalle_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNumeroCalle.KeyPress
        utilidades.validarKeyPressNumerico(e)
    End Sub

    Private Sub txtPiso_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPiso.KeyPress
        utilidades.validarKeyPressNumerico(e)
    End Sub

    Private Sub cmdGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGuardar.Click
        If Me.txtNumeroCatastro.Text.Trim = "" Then
            MsgBox("El Número de Catastro es requerido.", vbOKOnly + vbCritical, "Atención")
            Me.txtNumeroCatastro.Focus()
            Exit Sub
        End If
        If Me.txtValorAproximado.Text.Trim = "" Then
            MsgBox("El Valor Aprox. es requerido.", vbOKOnly + vbCritical, "Atención")
            Me.txtValorAproximado.Focus()
            Exit Sub
        End If
        If Me.txtDescripcion.Text.Trim = "" Then
            MsgBox("La Descripción es requerida.", vbOKOnly + vbCritical, "Atención")
            Me.txtDescripcion.Focus()
            Exit Sub
        End If
        If Me.txtCalle.Text.Trim = "" Then
            MsgBox("La calle es requerida.", vbOKOnly + vbCritical, "Atención")
            Me.txtCalle.Focus()
            Exit Sub
        End If
        If Me.cmbLocalidadInmueble.SelectedIndex < 1 Then
            MsgBox("La Localidad es requerida.", vbOKOnly + vbCritical, "Atención")
            cmbLocalidadInmueble.Focus()
            Exit Sub
        End If

        NRO_CATASTRO = Me.txtNumeroCatastro.Text.Trim
        VALOR_MONETARIO1 = Me.txtValorAproximado.Text.Trim
        DESCRIPCION1 = Me.txtDescripcion.Text.Trim
        CALLE2 = Me.txtCalle.Text.Trim
        NUMERO1 = Me.txtNumeroCalle.Text.Trim
        PISO1 = Me.txtPiso.Text.Trim
        DEPTO1 = Me.txtDepartamento.Text.Trim
        ID_LOCALIDAD1 = Me.cmbLocalidadInmueble.SelectedValue
        LOCALIDAD1 = Me.cmbLocalidadInmueble.Text.Trim

        If _form.existeInMueble(NRO_CATASTRO, SEC2) = False Then
            Me._form.actualizarGrillaInMuebles(NRO_CATASTRO, DESCRIPCION1, VALOR_MONETARIO1, _
                CALLE2, NUMERO1, PISO1, DEPTO1, ID_LOCALIDAD1, LOCALIDAD1, SEC2, _tipoVentana)
            _sePresionoGuardar = True
            Me.Close()
        Else
            MsgBox("El Bien Mueble ya existe.", vbOKOnly + vbCritical, "Atención")
        End If


    End Sub

    Private Sub cmdCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancelar.Click
        _sePresionoGuardar = False
        Me.Close()
    End Sub
End Class